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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
COMMON, as to the accuracy and fimctioning of the program 
and related program material, nor shall the fact of distribution 
constitute any such warranty, and no responsibility is assumed 
by the contributor or COMMON, in connection therewith. 



^^rogram No. 

Program Name:_ 



COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

Date 



1. Does the abstract adequately describe what the program is and what Yes No_ 

it does? 

Comment 

2. Does the program do what the abstract says? Yes No_ 

Comment 



#"§. Does the object program run satisfactorily? Yes_ 
^ Comment 



3. Is the description clear, understandable, and adequate? Yes No_ 

Comment _ 

4. Are the Operating Instructions understandable and in sufficient detail? Yes Nq_ 

Comment 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable ? Yes No_ 

Comment 

5. Does the source program compile satisfactorily (if applicable) ? Yes No_ 

Comment 



No 



7. Number of test cases run • Are any restrictions as to data, 

size, range, etc, covered adequately in description? Yes No_ 

Comment ^ 

8. Does the Program meet the minimal standards of COMMON? Yes No_ 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 

Company 



Mr. Richard L. Pratt 

Data Corporation Address 

7500 Old Xenia Pike 

Dayton 32, Ohio Users Group Code 



JffHIS REVIEW FORM IS PART OF THE COMMON ORGANIZATIONS PROGRAM REVIEW AND 
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Author: Lt. Richard L. Pratt 

Department of Mathematics 
Institute of Technology 
Wright -Patterson AFB, Ohio 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for the IBM Data Processing Systems. If such announce- 
ment indicates a change to the program decks or tapes, a 
complete new program, if needed, should be requested 
from the Program Distribution Center, 
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1. Operating Deck 

numbered 00 to 48 in columns 79 and 80 
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SPS Source Deck 

numbered 01010 to 02190 by tens in columns 1 thru 5 
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Program Abstract 

Title (If subroutine state in Title) Sequence Puncher 

S ubject Classificatio n 1Q 
Author; Organizatio n Richard L. Pratt, Air Force Institute of Technology 

Direct Inquires to: 

Name l/Lt Richard L. Pratt Address Dept. of Math- 
ematics, Inst, of Tech., Wright -Patterson AFB, Ohio P hone CL5-7111,Ex. 29115 
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twenty columns of a card deck* 



Mathematical Method; MA 
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Equipment Specifications: 
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Indirect Addressing: Yes _ No * Other Special Features Required 
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SEQUENCE PUNCHER 



DESCRIPTION CF PROGRAM 

This is a program to punch sequence numbers into a deck of cards. 
The sequence numbers may be up to 20 digits long, and there may be 
any desired increment between successive numbers. The numbers may 
be in any desired location on the cards. 

EQUIPMENT SPECIFICATIONS 

This program will operate on any 1620 equipped with a 1622 card 
read-punch. It does not require any other special features, but 
should operate on machines so equipped. It occupies memory from 
001^02 to 01769, and is not relocatable. It is written in SPS. 

OPERATING OPTIONS 

There is one major option in the way this program may be used - 
a previously punched deck of cards may be duplicated, uxth the 
sequence numbers replacing whatever information was originally in 
those columns, or the sequence numbers may be punched directly onto 
cards which carry punchings from previous operations. In the latter 
case, to avoid illegal multiple punch combinations, it is necessary 
that the columns which are to receive the sequence numbers be blank. 
Also in this latter case, since the punch check circuitry will de- 
tect the punches which were previously in the cards (in other col- 
umns than the sequence number), the SHJ^JL^g^ION-STOP switch on 
the punch should be set to NON-STOP. This option is controlled by 
program switch number 1. Other options, controlled by the other 
program switches, are explained be lew. 

OPERATING INSTRUCTIONS 

1. Load the sequence puncher, as follows: 

a. If the computer is not in manual mode, depress INSTANT STOP 
and RESET. 

b. Remove any cards that may be in the read hopper, and clear 
the reader by depressing NON- PROCESS RUNOUT until no more 
cards come out. Remove all cards from the read stackers. 

c. Place the deck of the sequence puncher program in the read 
hopper and press LOAD. Loading of the program will commence. 

d. When the reader stops on the last two cards, press READER 
START. 
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e. When the reader stops the second time, the MANUAL light 
should be on, and the last card should be in the read 
stacker. Put the deck away. 

2. Set the program switches (see below). Set the O'FLCtf switch 
to PROGgAM, all other check switches to STOP. ~~ 

3. If a deck of cards is to be reproduced, with sequence numbers 
added, put the deck in the read hopper and press READER START. 
Make sure the punch is clear, put blank cards in the punch hopper 

and press PUNCH START. 

I4. If sequence numbers are to be punched in an already existing 
deck, make sure the punch is clear, put the deck in the punch" 
hopper, and press PUNCH START. Set the SEIECT STOP/NON-STOP switch 
on the punch to NON-STOP (be sure to return it to its normal 
position when yotTfinish). Put two blank cards after the deck. 

Press START. If program switch 2 or 3 is on, skip steps 6, 7, 

and 8. 

6. ENTER LEFT CARD COLUMN will be typed. Enter, as a two-digit 
number, the column into which the leftmost di^it of the sequence 
number will be put. Press REIEASE and START. If nothing is 
entered, the sequence number will begin in column 76. 

7. ENTER STARTING VALUE will be typed. Enter the starting value 

of the sequence number, exactly as it is to appear on the card. The 
first digit entered will go into the column specified in step 6, 
and the sequence number will go from left to right on the cards. 
The sequence number may not be longer than 20 digits. If the 
sequence number as entered would run over the end of the card, an 
error message will be typed, and the program will return to step 6. 
The sequence number may consist of digits and flagged digits only. 
After entering the sequence number, press REIEASE and START. 

8. ENTER INCREMENT will be typed. Enter the increment which is to 
be added to the sequence number after punching each card. This in- 
crement must be the same length as the number entered in step 7, 
and must contain flags in the same locations as the number entered 
in step 7. If no increment is entered, an increment of 1 in the 
rightmost position of the sequence number will be assumed. The in- 
crement will be added to the sequence number by a 1620 ADD command, 
so flags in the sequence number will stop the addition. Press 
RELEASE and START. 

9. Punching will begin. If no deck is being read, punching will 
end when the entire deck, except for the two blank cards at the end, 
has been punched. Press NON- PROCESS RUNOUT to clear the blank 
cards from the punch. Most of the punched deck will be in the 
select stacker in this case, but a few of the cards may be in the 
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non-select staclcer. These must be sorted into the proper positions 
in the deck. The easiest way to sort them is by the sequence num- 
bers which have been punched into them, 

10. If a deck is being read, punching will stop when the last two 
cards are still in the reader. Press READER STA.RT to read these 
two cards. When the program stops again, punching is finished. 
Lift the blank cards out of the punch hopper and press NON-PROCESS 
RUNOUT to get the 3ast cards out of the punch. The last two should 
be blank. 

11. After stopping in either of the above cases, or at any other 
time, to start the program over again at the beginning, press 
INSTANT STOP, RESET, INSERT, RELEASE, and go back to step 2. 



Switch 1 



Read a deck and reproduce it, adding sequence numbers. 



Switch 1 OFF: Do not read; punch sequence numbers directly into 
an existing deck. 



Switch 2 ON: Bypass entry of sequence numbers. Put sequence numbers 
in columns 1-5, beginning at 00010 and incrementing by 
00010. (This will be useful for SPS source decks) 

Switch 2 OFF: Test Switch 3. 

Switch 3 ON: Bypass entry of sequence numbers. Put sequence numbers 
in columns 77-80, beginning at 0001 and incrementing by 
0001. 

Switch 3 OFF: Enter card column, beginning value, and increment from 
typewriter. 

Switch 1*: This switch is used for error correction when entering 

values from thB typewriter. It should normally be off. 
If a typing error is discovered before REIEASE and 
START have been pressed, it may be corrected as follows: 

(a) Turn Switch It ON. 

(b) Press RELEASE and STA.RT. 

(c) Turn Switch U OFF. 

(d) Enter the correct data* 
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DECK IDENTIFICATION 

There are two decks supplied with this program. The SPS source 
deck is numbered in columns 1-5 from OlOlO to 02190 by tens. 
The operating deck is numbered OO-/48 in columns 79-80. 
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DC 


01356 


00001 


01920 




DC 


01357 


00001 


01930 




DC 


0U58 


00001 


01940 




DC 


01359 


00001 


""" 01950 




DC 


01360 


00001 


01960 




DC 


01361 


00001 


01970 




DC 


01362 


00001 


"01980 




DC 


01363 


00001 


01990 




DC 


01364 


00001 


02000 




DC 


01365 


00001 


02010 




DC 


01366 


00001 


02020 




DC 


01367 


00001 


02030 




DC 


01368 


00001 


02040 




DC" " 


01369 


ooobi 


02050 




DC 


01370 


00001 


02060 




DC 


01371 


00001 


02070 


REC 


*DC 


01373 


00023 


02080 


Ml 


DAC 


01419 


00021 


02090 


M2 


DAC 


01461 


00016 


02100 


M3 


DAC 


1493 


0002 


02110 


M4, 


DAC 


01533 


00017 


02120 




DAC 


01567 


00002 


02130 




DS 


01568 


000 01 


02140 


SEQ 


DS 


01589 


00021 


02150 




DS 


01590 


00001 


02160 


" INC 


DS 


01609 


00019 


02170 




DS 


01611 


0008 


02180 


OUT 


PAS 


00426 




02190 




DEND 
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23 » ENTER LEFT CARD COLUMN- 
2 1 » ENTER STARTING VALUE- 
16 » ENTER INCREMENT- 
20 » SEQUENCE NUMBER GOES 
17» PAST COLUMN JO-.- 
2"'" "'" 
1 

21 

i 

19 
8_0 
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